home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / datature / omahadb / pcnfg.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-01-26  |  5.8 KB  |  78 lines
  1. 1000  OPEN "DD" FOR INPUT AS 1: INPUT #1,DR$:CLOSE:GOTO 1060
  2. 1010  DIMU%(22):FORI=0TO21:READU%(I):NEXT:DATA&H8B55:DATA&HB8EC:DATA&H0600:DATA&H07B7:DATA&H768B:DATA&H8A0C:DATA&H8B2C:DATA&HA76:DATA&HC8A:DATA&H768B:DATA&H8A08:DATA&H8B34:DATA&H676:DATA&H148A:DATA&HCDFE:DATA&HC9FE:DATA&HCEFE:DATA&HCAFE:DATA&H10CD
  3. 1020  DATA&HCA5D:DATA&H8:DATA&H0:LOCATE19,1:PRINTCHR$(201);STRING$(78,205);CHR$(187);:FORZ=1TO3:LOCATE,1:PRINTCHR$(186);:LOCATE,80:PRINTCHR$(186);:NEXT:LOCATE23,1:PRINTCHR$(200);STRING$(78,205);CHR$(188);:LOCATE15,1
  4. 1030  R1%=20:R2%=22:C1%=2:C2%=79:DEFSEG:SUBRT%=VARPTR(U%(0)):CALLSUBRT%(R1%,C1%,R2%,C2%):RETURN
  5. 1040  LOCATE13,1:PRINTCHR$(201);STRING$(68,205);CHR$(187):FORZ=1TO3:LOCATE,1:PRINTCHR$(186);:LOCATE,70:PRINTCHR$(186):NEXT:LOCATE17,1:PRINTCHR$(200);STRING$(68,205);CHR$(188);:LOCATE15,1
  6. 1050  R1%=14:R2%=16:C1%=2:C2%=69:DEFSEG:SUBRT%=VARPTR(U%(0)):CALLSUBRT%(R1%,C1%,R2%,C2%):RETURN
  7. 1060  KEYOFF:CLS:COLOR0,7:LOCATE1,1:PRINTSTRING$(240," "):LOCATE2,20:PRINT" ** PRINTER  CONFIGURATION ROUTINE ** ":COLOR7,0:LOCATE5,1:DIMP$(13,10):GOSUB1010
  8. 1070  LOCATE21,3:COLOR15,0:PRINT"If you are not familiar with the MODE command of 2.0 DOS then you":LOCATE22,3:PRINT"should look at your DOS Manual, pp.6-109 to 6-116":COLOR7,0
  9. 1080  LOCATE 7,1:PRINT:PRINT"Your choices are:":LOCATE,10:PRINT"(1) Set Mode of Operation on a Parallel Printer":LOCATE,10:PRINT"(2) Set Options for Asynchronous Communication Adaptor":LOCATE,10:PRINT"(3) Erase File":LOCATE,10:PRINT"(4) Exit"
  10. 1090  LOCATE 15,10:PRINT"Enter Choice (1-4) ";
  11. 1100  CH$=INKEY$:IFCH$=""THEN1100
  12. 1110  CHOICE=VAL(CH$):IF CHOICE<1 OR CHOICE>4 THEN BEEP:GOTO 1070
  13. 1120  IF CHOICE=3 THEN GOSUB 1030:GOTO 1650 ELSE CLS:COLOR 0,7:PRINT STRING$(240," "):IF CHOICE=4 THEN COLOR 7,0:RUN"MENU"
  14. 1130  IFCHOICE=2THEN1360
  15. 1140  LOCATE2,10:COLOR0,7:PRINT"** SET MODE OF OPERATION FOR A PARALLEL PRINTER **        ":COLOR7,0:LOCATE5,1
  16. 1150  DATA WHICH PARALLEL LINE PRINTER? (LPT1 /LPT2/ LPT3),3,1,2,3,HOW MANY CHARACTERS PER LINE (80 OR 132 CHARACTERS),2,80,132,HOW MANY LINES PER INCH (6 OR 8 LINES PER INCH),2,6,8
  17. 1152  DATA CONTINUOUS RETRY IF PRINTER IS NOT TURNED ON  (P=YES),1,P
  18. 1160  RESTORE1150:FORX=1TO4:READP$(X,0):READP$(X,1):FORY=1TOVAL(P$(X,1)):READP$(X,Y+1):NEXT:NEXT:FORX=1TO4:LOCATE6+X,1:PRINTX;".  ";P$(X,0);STRING$(60-LEN(P$(X,0)),"."):NEXT:GOSUB1020:GOSUB1040
  19. 1170  DATA1,This is the number of the Parallel Line Printer (1-3):DATA2,This is the number of characters per line. It is set at,2,either 80 or 132 characters. This is also,2,set and adjusted within the programs.
  20. 1180  DATA 3,This is the vertical spacing... either 6 or 8 lines,3,per inch.:DATA 4,P option- IF YOU ENTER 'P' then the computer will not 'lock up' if,4,you forget to turn your printer on.,99:RESTORE 1170:READ N:FOR X=1 TO 4:LOCATE 14,3
  21. 1190  IFN=XTHENLOCATE,3:READA$:PRINTA$:READN
  22. 1200  IFN=XTHENLOCATE,3:GOTO1190
  23. 1210  LOCATE20,3:PRINTP$(X,0):LOCATE21,3:FORY=1TOVAL(P$(X,1)):PRINT"(";Y;") ";P$(X,Y+1);"   ";:IFPOS(0)>60THENPRINT:LOCATE,3
  24. 1220  NEXT:REM input
  25. 1230  LOCATE 24,1:COLOR 15,0:PRINT"Enter Choice Here ";:COLOR 7,0:PRINT"(0-";P$(X,1);") ";
  26. 1240  A$=INKEY$:IFA$=""THEN1240
  27. 1250  IFVAL(A$)>VAL(P$(X,1))THENBEEP:GOTO1240
  28. 1260  IFX<4ANDVAL(A$)=0THENA$="1
  29. 1270  IF VAL(A$)=0 THEN P$(X,10)="":LOCATE 6+X,70: PRINT "      ":GOTO 1290
  30. 1280  LOCATE6+X,70:PRINTP$(X,VAL(A$)+1):P$(X,10)=STR$(VAL(A$)+1)
  31. 1290  GOSUB1030:GOSUB1050:NEXT:GOSUB1030:GOSUB1050:FORX=1TO4:IFVAL(P$(X,10))=0THENP$(X,10)="" ELSEP$(X,10)=P$(X,VAL(P$(X,10)))
  32. 1300  NEXT:A$="MODE LPT"+P$(1,10)+":"+P$(2,10)+","+P$(3,10):IFP$(4,10)<>""THENA$=A$+","+P$(4,10)
  33. 1310  COLOR 15,0:LOCATE 14,3:PRINT A$:LOCATE 24,1:PRINT"                        ";:COLOR 7,0:LOCATE 21,3:BEEP:PRINT"Is this correct (Y/N) ";
  34. 1320  AN$=INKEY$:IFAN$=""THEN1320
  35. 1330  IFAN$="y"ORAN$="Y"THEN1650
  36. 1340  IFAN$="n"ORAN$="N"THEN1140
  37. 1350  BEEP:GOTO 1310
  38. 1360  LOCATE2,10:COLOR0,7:PRINT"**  SET OPTIONS FOR ASYNCHRONOUS COMMUNICATION ADAPTOR **          ":COLOR7,0:LOCATE5,1
  39. 1370  DATAn [ASYNCHRONOUS COM #],2,1,2,baud,8,110,150,300,600,1200,2400,4800,9600,parity,3,N,O,E,databits,2,7,8,stopbits,2,1,2,P [RETRY OF TIME-OUT ERRORS],1,P:DATA# [LPT PRINTER NUMBER],3,1,2,3,n [ASYNCHRONOUS COM #],2,1,2
  40. 1380  RESTORE1370:FORX=5TO12:READP$(X,0):READP$(X,1):FORY=1TOVAL(P$(X,1)):READP$(X,Y+1):NEXT:NEXT:DATA:FORX=5TO11:LOCATEX,1:PRINTX-4;".  ";P$(X,0);STRING$(60-LEN(P$(X,0)),"."):NEXT:GOSUB1020:GOSUB1040
  41. 1390  DATA5,This is the number of the Asynchronous Communications Adapter.,5,Generally this is `1`.
  42. 1400  DATA6,This is the baud rate. The speed at which your printer can print.,6,If you notice that the printer is not printing all of the,6,information you should set this to a lower baud rate.
  43. 1410  DATA7,Parity - N (none) O (odd) E(even).  Generally the parity,7,is 'E'ven.  If your printer seems to,7,be printing 'garbage' you should change the parity.
  44. 1420  DATA8,Generally the databit is set at 7 although your printer may,8,use all 8 bits for the characters it prints.:DATA9,Stopbit- IF YOU BAUD IS NOT 110 THIS IS GENERALLY SET AT '1'.,9,If your baud rate is 110- generally this would be set to '2'.
  45. 1430  DATA 10,P option- IF YOU ENTER 'P' then the computer will not 'lock up" if,10,you have forgotten to turn on your printer.
  46. 1440  DATA11,LPT#...This is the number of the parallel printer output,11,that is re-directed to the Asynchronous,11,Communications Adapter.  Generally this is '1':DATA99:RESTORE1390:READN:FORX=5TO11:LOCATE14,3
  47. 1450  IFN=XTHENLOCATE,3:READA$:PRINTA$:READN
  48. 1460  IFN=XTHENLOCATE,3:GOTO1450
  49. 1470  LOCATE20,3:PRINTP$(X,0):LOCATE21,3:FORY=1TOVAL(P$(X,1)):PRINT"(";Y;") ";P$(X,Y+1);"   ";:IFPOS(0)>60THENPRINT:LOCATE,3
  50. 1480  NEXT:REM input
  51. 1490  LOCATE 24,1:COLOR 15,0:PRINT"Enter Choice Here ";:COLOR 7,0:PRINT"(0-";P$(X,1);") ";
  52. 1500  A$=INKEY$:IFA$=""THEN1500
  53. 1510  IFVAL(A$)>VAL(P$(X,1))THENBEEP:GOTO1500
  54. 1520  IFX=6ANDVAL(A$)=0THENBEEP:GOSUB1050:BEEP:LOCATE14,3:PRINT"You must at least enter the Baud rate":FORWT=1TO5:BEEP:NEXT:GOTO1490
  55. 1530  IFX=5ANDVAL(A$)=0THENA$="1
  56. 1540  IFX=11ANDVAL(A$)=0THENA$="1
  57. 1550  IF VAL(A$)=0 THEN P$(X,10)="":LOCATE X,70: PRINT "         ":GOTO 1570
  58. 1560  LOCATEX,70:PRINTP$(X,VAL(A$)+1):P$(X,10)=STR$(VAL(A$)+1)
  59. 1570  GOSUB1030:GOSUB1050:NEXT:GOSUB1030:GOSUB1050:FORX=5TO11:IFVAL(P$(X,10))=0THENP$(X,10)="" ELSEP$(X,10)=P$(X,VAL(P$(X,10)))
  60. 1580  NEXT:B$="MODE LPT"+P$(11,10)+":=COM"+P$(5,10):A$="MODE COM"+P$(5,10)+":"+P$(6,10)+","+P$(7,10)+","+P$(8,10)+","+P$(9,10):IFP$(10,10)<>""THENA$=A$+","+P$(10,10)
  61. 1590  COLOR 15,0:LOCATE 14,3:PRINT A$:LOCATE 15,3:PRINT B$:LOCATE 24,1:PRINT"                                ";
  62. 1600  COLOR7,0:LOCATE21,3:BEEP:PRINT"Is this correct (Y/N) ";
  63. 1610  AN$=INKEY$:IFAN$=""THEN1610
  64. 1620  IFAN$="y"ORAN$="Y"THEN1650
  65. 1630  IFAN$="n"ORAN$="N"THEN1360
  66. 1640  BEEP:GOTO1600
  67. 1650  IF CHOICE=3 THEN LOCATE 21,3: PRINT "ERASING PRINTER CONFIGURATION FILE"
  68. 1655  FI$=DR$+":AUTOEXEC.BAT" :OPEN FI$ FOR OUTPUT AS #1:IF CHOICE=2 THEN PRINT#1,A$:PRINT#1,B$
  69. 1660  IFCHOICE=1THENPRINT#1,A$
  70. 1670  PRINT#1,"BASICA HELLO/S:768/F:8":CLOSE#1:RUN"MENU":END
  71. 40000  REM **********************************************************
  72. 40010  REM **********************************************************
  73. 40020  REM ** COPYRIGHT (C) 1980, 1983    GERALD E. GONDERINGER    **
  74. 40030  REM ** THE OMAHA DATABASE PROGRAM                           **
  75. 40040  REM ** $50.00 FEE FOR USE OF PROGRAM                        **
  76. 40050  REM **********************************************************
  77. 40060  REM **********************************************************
  78.